home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 June
/
EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso
/
earcd
/
editor
/
blksedtr.lha
/
BED
/
Rexx
/
PrevParagraph.bed
< prev
next >
Wrap
Text File
|
1996-05-06
|
549b
|
54 lines
/*
** $VER: PrevParagraph.bed 1.0 (06.01.96)
**
** Move the cursor to the start of the previous paragraph
*/
OPTIONS RESULTS
str = ' ' || '09'X
SetLockInput ON
SetLockDisplay ON
MoveSOL
DO FOREVER
GetLine
IF COMPRESS(RESULT,str) = "" THEN BREAK
MoveUp
IF RC ~= 0 THEN EXIT
END
DO FOREVER
GetLine
IF COMPRESS(RESULT,str) ~= "" THEN BREAK
MoveUp
IF RC ~= 0 THEN EXIT
END
DO FOREVER
GetLine
IF COMPRESS(RESULT,str) = "" THEN DO
MoveDown
EXIT
END
MoveUp
IF RC ~= 0 THEN EXIT
END
SetLockInput OFF
SetLockDisplay OFF